﻿Public Class frm_change_ftp_cutom_text

    Private Shared _saved_ftp_connection As SavedFTPConnection

    Public Property SaveFTPConnectionItem As SavedFTPConnection
        Set(value As SavedFTPConnection)
            _saved_ftp_connection = value
        End Set
        Get
            Return _saved_ftp_connection
        End Get
    End Property

    Private Sub frm_change_ftp_cutom_text_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RichTextBox1.Clear()
        RichTextBox1.Text = _saved_ftp_connection.CustomInfo
    End Sub

    Private Sub cmd_save_custom_text_Click(sender As Object, e As EventArgs) Handles cmd_save_custom_text.Click
        _saved_ftp_connection.CustomInfo = RichTextBox1.Text
        Me.Close()
    End Sub
End Class